home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / sozo2 / scsrc20.lzh / JAS.LZH / HDR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-02-22  |  1.4 KB  |  58 lines
  1.  
  2. /*
  3.  * Copyright (c) 1988,1991 by Sozobon, Limited.  Author: Joseph M Treat
  4.  *
  5.  * Permission is granted to anyone to use this software for any purpose
  6.  * on any computer system, and to redistribute it freely, with the
  7.  * following restrictions:
  8.  * 1) No charge may be made other than reasonable charges for reproduction.
  9.  * 2) Modified versions must be clearly marked as such.
  10.  * 3) The authors are not responsible for any harmful consequences
  11.  *    of using this software, even if they result from defects in it.
  12.  */
  13.  
  14. #include "jas.h"
  15.  
  16. /* for megamax */
  17. #define entry _entry
  18.  
  19. typedef struct {
  20.     short magic;
  21.     long tsize;
  22.     long dsize;
  23.     long bsize;
  24.     long ssize;
  25.     long stksize;
  26.     long entry;
  27.     short rlbflg;
  28. } HEADER;
  29.  
  30. #define MAGIC    0x601a
  31. #define SYMSIZE    14
  32.  
  33. headers()
  34. {
  35.     HEADER header;
  36.     extern long txtsize, datsize, bsssize, nsyms;
  37.  
  38.     header.magic = MAGIC;
  39.     header.tsize = txtsize;
  40.     header.dsize = datsize;
  41.     header.bsize = bsssize;
  42.     header.ssize = nsyms * SYMSIZE;
  43.     header.stksize = 0L;
  44.     header.entry = 0L;
  45.     header.rlbflg = 0;
  46.  
  47. #ifndef UNIXHOST
  48.     output( (char *) &header, sizeof header, 1 );
  49. #else
  50.     swapw(&header.magic, 1);
  51.     output( (char *) &header.magic, sizeof(short), 1 );
  52.     swapl(&header.tsize, 6);
  53.     output( (char *) &header.tsize, sizeof(long), 6);
  54.     swapw(&header.rlbflg, 1);
  55.     output( (char *) &header.rlbflg, sizeof(short), 1 );
  56. #endif
  57. }
  58.